/* GUI CONVERTED from rcrp10a.p (converter v1.76) Wed May 15 09:49:20 2002 */
/* rcrp10a.p - Release Management Customer Schedules                    */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/* $Revision: 1.4.1.2 $                                                     */
/*V8:ConvertMode=Report                                                 */
/* REVISION: 7.3    LAST MODIFIED: 07/18/83  BY: WUG *GD52*             */
/* REVISION: 8.5    LAST MODIFIED: 02/20/97  BY: *J1JB* Patrick Rowan   */
/* REVISION: 8.6    LAST MODIFIED: 05/20/98  BY: *K1Q4* Alfred Tan      */
/* REVISION: 9.1    LAST MODIFIED: 08/12/00  BY: *N0KP* myb             */
/* Old ECO marker removed, but no ECO header exists *F0PN*                    */
/* $Revision: 1.4.1.2 $    BY: Katie Hilbert     DATE: 05/15/02  ECO: *P06N*      */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

/* CONTAINER LABEL PRINT SUBPROGRAM */


/*GUI preprocessor directive settings */
&SCOPED-DEFINE PP_GUI_CONVERT_MODE REPORT

{mfdeclre.i}

define input parameter abs_recid as recid.

define shared workfile work_abs_mstr like abs_mstr.
define shared variable ctnr_count as integer.
define variable par_shipfrom as character.
define variable par_id       as character.

find abs_mstr where recid(abs_mstr) = abs_recid no-lock.

/* Remove sod lookup.  Containers built w/Container WB
   are not required to be connected to sales orders.  This
   lookup would cause an error and prohibit printing.
   Additionally, the sod components are not moved to the
   work record.  The sod lookup is not adding value.  */

if abs_id begins "i" then do for work_abs_mstr:

      create work_abs_mstr.

      assign
         work_abs_mstr.abs_item          = abs_mstr.abs_item
         work_abs_mstr.abs_qty           = abs_mstr.abs_qty
         work_abs_mstr.abs_order         = abs_mstr.abs_order
         work_abs_mstr.abs_line          = abs_mstr.abs_line.
   end.

   assign
      par_shipfrom = abs_shipfrom
      par_id       = abs_id.

   for each abs_mstr no-lock
         where abs_shipfrom = par_shipfrom
         and abs_par_id = par_id:
      {gprun.i ""rcrp10a.p"" "(input recid(abs_mstr))"}

      if abs_id begins "c" then
         ctnr_count = ctnr_count + 1.
   end.
